www.gusucode.com > 婚庆仪礼策划公司网站系统源代码 梦紫色 > 婚庆仪礼策划公司网站系统源代码 梦紫色/Admin/admin_news.asp

    
<!--#include file="conn.asp"-->
<!--#include file="inc/format.asp"-->
<!--#include file="inc/error.asp"-->
<!--#include file="check1.asp"-->
<!--#include file="inc/adminnews_body.asp"-->
<title><%=webname%>-信息管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim founderr,errmsg
founderr=false
errmsg=""

if session("admin_flag")<>"into" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你尚未登录，或者超时了！请<a href='login.asp' target='_parent' >重新登录</a>！"
  Call diserror()
  response.End
else

if Request.form("MM_insert") then
if request.form("action")="newnews" then
sql="select * from news"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
dim author,ahome,keyword,title,news_class_id,content
author=trim(replace(request.form("news_author"),"'",""))
ahome=trim(replace(request.form("news_ahome"),"'",""))
keyword=trim(replace(request.form("news_keyword"),"'",""))
title=trim(replace(request.form("news_title"),"'",""))
news_class_id=trim(replace(request.form("news_class_id"),"'",""))
content=request.form("news_content")
if author="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须输入作者或来源名称！"
else
  rs("news_author")=author
End if
if ahome="" then

else
  rs("news_ahome")=ahome
End if
if keyword="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>请输入关键字！"
else
  rs("news_keyword")=keyword
End if
if title="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须输入信息的标题！"
else
  rs("news_title")=title
End if
if news_class_id="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须输入信息的分类！"
else
  rs("news_class_id")=news_class_id
End if
if content="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须输入信息的简介！"
else
  rs("news_content")=content
End if

if Not founderr then
rs("news_date")=date
rs.update
rs.close
set rs=Nothing
  closedatabase
Response.write "<script language = 'javascript'>alert('成功添加了一个信息!');window.document.location.href='admin_news.asp';</script>"
response.end
else
Call diserror()
response.End
End if
End if
if request.form("action")="editnews" then
if request.Form("id")="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须指定操作的对象！"
else
  if Not isInteger(request.form("id")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的信息id参数。"
  End if
End if
if founderr then
  Call diserror()
  response.End
End if
sql="select * from news where news_id="&cint(request.Form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
author=trim(replace(request.form("news_author"),"'",""))
ahome=trim(replace(request.form("news_ahome"),"'",""))
keyword=trim(replace(request.form("news_keyword"),"'",""))
title=trim(replace(request.form("news_title"),"'",""))
news_class_id=trim(replace(request.form("news_class_id"),"'",""))
content=request.form("news_content")
if author="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须输入作者或来源名称！"
else
  rs("news_author")=author
End if
if ahome="" then

else
  rs("news_ahome")=ahome
End if
if keyword="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须输入该信息的关键字！"
else
  rs("news_keyword")=keyword
End if
if title="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须输入信息的标题！"
else
  rs("news_title")=title
End if
if news_class_id="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须输入信息的分类！"
else
  rs("news_class_id")=news_class_id
End if
if content="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须输入信息的简介！"
else
  rs("news_content")=content
End if

if Not founderr then
rs.update
rs.close
set rs=Nothing
Response.write "<script language = 'javascript'>alert('成功修改了此信息!');window.document.location.href='admin_news.asp';</script>"
response.end
else
Call diserror()
response.End
End if
End if
if request.form("action")="delnews" then
if request.Form("id")="" then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你必须指定操作的对象！"
else
  if Not isInteger(request.form("id")) then
    founderr=true
    errmsg=errmsg+"<br>"+"<li>非法的信息id参数。"
  End if
End if
if founderr then
  Call diserror()
  response.End
End if
sql="select * from news where news_id="&cint(request.Form("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.delete
rs.close
set rs=Nothing
  closedatabase
Response.write "<script language = 'javascript'>alert('成功删除了此信息!');window.document.location.href='admin_news.asp';</script>"
response.end
End if
End if

Call adminnews_body()
closedatabase
End if
%>